perm filename O[TLC,MUS] blob
sn#077178 filedate 1973-12-19 generic text, type T, neo UTF8
00100 INTEGER C,EC,PRS,WC,HC,CT,DC
00200 C GOOD-LOOKS PROGRAM -- TYPE X TO BACKUP
00300 INTEGER DL,SL,HX,WL
00400 11 FORMAT(A1)
00500 1 FORMAT(' LEGS? GOOD OR BAD? ',$)
00600 12 TYPE 1
00700 ACCEPT 11,L
00800 IF(L.EQ.'G')GO TO 16
00900
01000 2 FORMAT(' THIGHS? ',$)
01100 13 TYPE 2
01200 ACCEPT 11,T
01300 IF(T.EQ.'X')GO TO 12
01400
01500 3 FORMAT(' KNEES? ',$)
01600 14 TYPE 3
01700 ACCEPT 11,K
01800 IF(K.EQ.'X')GO TO 13
01900
02000 4 FORMAT(' CALVES? ',$)
02100 15 TYPE 4
02200 ACCEPT 11,C
02300 IF(C.EQ.'X')GO TO 14
02400
02500 5 FORMAT(' ARMS? ',$)
02600 16 TYPE 5
02700 ACCEPT 11,A
02800 IF(A.EQ.'X')GO TO 15
02900
03000 6 FORMAT(' SHOULDERS? GOOD, WIDE OR NARROW? ',$)
03100 17 TYPE 6
03200 ACCEPT 11,S
03300 IF(S.EQ.'X')GO TO 16
03400
03500 7 FORMAT(' WAIST? GOOD OR WIDE? ',$)
03600 18 TYPE 7
03700 ACCEPT 11,W
03800 IF(W.EQ.'X')GO TO 17
07000 8 FORMAT(' HIPS? GOOD, WIDE OR NARROW? ',$)
07100 19 TYPE 8
07200 ACCEPT 11,H
07300 IF(H.EQ.'X')GO TO 18
07400
07500 9 FORMAT(' BUST? GOOD, BIG OR SMALL? ',$)
07600 20 TYPE 9
07700 ACCEPT 11,B
07800 IF(B.EQ.'X')GO TO 19
07900
08000 10 FORMAT(' NECK? GOOD, LONG OR SHORT? ',$)
08100 TYPE 10
08200 ACCEPT 11,N
08300 111 FORMAT(' PHYSICALLY? MED,BIG OR TINY? ',$)
08400 TYPE 111
08500 ACCEPT 11,P
08600 IF(P.EQ.'X')GO TO 10
08700 112 FORMAT(' SKIN? WHT,BLK,RED OR YEL? ',$)
08800 TYPE 112
08900 ACCEPT11,S
09000 IF(S.EQ.'X')GO TO 111
09100 113 FORMAT('EYES? BLU,BRN,GRN OR YEL? ',$)
09200 TYPE 113
09300 ACCEPT 11,E
09400 IF(E.EQ.'X')GO TO 112
09500 114 FORMAT(' HAIR? BLD,BLK,BRN OR RED? ',$)
09600 TYPE 114
09700 ACCEPT 11,H
09800 IF(H.EQ.'X')GO TO 113
09900 115 FORMAT(' TIME? AM,NN,PM,NT? ',$)
10000 TYPE 115
10100 ACCEPT 11,T
10200 IF(T.EQ.'X')GO TO 114
10300 116 FORMAT(' WEATHER? CLR,FOG,WET OR CLD? ',$)
10400 TYPE 116
10500 ACCEPT 11,WR
10600 IF(WR.EQ.'X')GO TO 115
10700 117 FORMAT(' TEMP? HOT,COLD OR MED? ',$)
10800 TYPE 117
10900 ACCEPT 11,TP
11000 IF(TP.EQ.'X')GO TO 116
11100 118 FORMAT(' JOB? STRAIT,LOOSE OR CASUAL? ',$)
11200 TYPE 118
11300 ACCEPT 11,J
11301 IF(J.EQ.'X')GO TO 117
11302 156 IF(WR.EQ.'C')WC=1
11305 IF(WR.EQ.'F')WC=2
11308 IF(WR.EQ.'W')WC=3
11311 IF(WR.EQ.'L')WC=4
11314 GO TO(700,701,702,703),WC
11317 704 FORMAT(' <<BRIGHT DARK. '/)
11320 700 TYPE 704
11323 GO TO 157
11326 705 FORMAT(' <<BRIGHT. '/)
11329 701 TYPE 705
11332 GO TO 157
11335 706 FORMAT(' <<OVERCOAT,BOOTS. '/)
11338 702 TYPE 706
11341 GO TO 157
11344 707 FORMAT(' << WARM SWEATERS. '/)
11347 703 TYPE 707
11350 GO TO 157
11353 157 IF(J.EQ.'S')J=1
11356 IF(J.EQ.'L')J=2
11359 IF(J.EQ.'C')J=3
11362 GO TO(708,709,800),J
11365 801 FORMAT(' <<LINES AND COLORS SHARP. '/)
11368 708 TYPE 801
11371 GO TO150
11374 902 FORMAT(' <<LINES AND COLORS EASY. '/)
11377 709 TYPE 802
11380 GO TO150
11383 803 FORMAT(' <<COMFORTABLE COLORS AND LINES. '/)
11386 800 TYPE803
11389 GO TO150
11395
11500 150 IF(P.EQ.'MED')GO TO 151
11600 C JUMP IF MEDIUM SIZE PERSON
11700 IF(P.EQ.'B')PRS=1
11800 IF(P.EQ.'T')PRS=2
11900 GO TO (71,72),PRS
12000 73 FORMAT(' <<WEAR BIG PRINTS. '/)
12100 71 TYPE 73
12200 GO TO 151
12300 175 FORMAT(' <<WEAR TINY PRINTS. '/)
12400 72 TYPE 175
12500 GO TO 151
12600 151 IF(S.EQ.'W')C=1
12700 IF(S.EQ.'B')C=2
12800 IF(S.EQ.'Y')C=3
12900 IF(S.EQ.'R')C=4
13000 GO TO (74,75,76,77),C
13100 79 FORMAT(' <<ALL COLORS,ESPECIALLY DARK. ')
13200 74 TYPE 79
13300 GO TO 152
13400 80 FORMAT(' <<ALL COLORS,ESPECIALLY LIGHT. ')
13500 75 TYPE80
13600 GO TO 152
13700 81 FORMAT(' <<NO WHT,NO COOL COLORS, ')
13800 76 TYPE 81
13900 GO TO 152
14000 82 FORMAT(' <<ALL COLORS?, ')
14100 77 TYPE 82
14200 GO TO 152
14300 152 IF(E.EQ.'B')EC=1
14400 IF(E.EQ.'T')EC=2
14500 IF(E.EQ.'G')EC=3
14600 IF(E.EQ.'Y')EC=4
14700 GO TO(84,85,86,87),EC
14800 88 FORMAT(' <<BLUE ESPECIALLY,ALLCOLORS?, ')
14900 84 TYPE 88
15000 GO TO 153
15100 89 FORMAT(' <<ESPECAILLY TAN,ALL COLORS?, ')
15200 85 TYPE 89
15300 GO TO 153
15400 90 FORMAT(' <<ESPECIALLY GREEN,ALL COLORS?,')
15500 86 TYPE 90
15600 GO TO 153
15700 91 FORMAT(' <<ESPECIALLY GOLD, ALL COLORS?,')
15800 87 TYPE 91
15900 GO TO 153
16000 153 IF(H.EQ.'Y')HC=1
16100 IF(H.EQ.'B.')HC=2
16200 IF(H.EQ.'R')HC=3
16300 IF(H.EQ.'N')HC=4
16400 GO TO(500,501,502,503),HC
16500 504 TYPE 500
16600 500 FORMAT(' <<WEAR BLACK AND PASTEL COLORS. ')
16700 505 FORMAT(' <<WEAR WHITE,RED AND GREEN. '/)
16800 501 TYPE505
16900 GO TO 154
17000 506 FORMAT(' <<WEAR GREEN AND BROWN. '/)
17100 502 TYPE 506
17200 GO TO 154
17300 507 FORMAT(' <<WEAR GREEN AND LIGHT WARM COLORS. '/)
17400 503 TYPE 507
17500 GO TO 154
17600 154 IF(T.EQ.'A')CT=1
17700 IF(T.EQ.'N')CT=2
17800
17900 IF(T.EQ.'P')CT=3
18000 IF(T.EQ.'M')CT=4
18100 GO TO(508,509,600,601),CT
18200 602 FORMAT(' <<WEAR FRESH,SOFT COLORS AND LINES. '/)
18300 508 TYPE602
18400 GO TO 155
18410 900 FORMAT(' <<APPETIZING COLORS. '/)
18420 509 TYPE900
18421 GO TO 155
18422 901 FORMAT(' <<WARM COLORS. '/)
18423 600 TYPE 801
18424 GO TO 155
18425 802 FORMAT(' <<BRIGHT LIGHT COLORS. '/)
18426 601 TYPE 802
18427 GO TO 155
18500 DL=1
18600 155 IF(D.EQ.'H')W=1
18700 IF(D.EQ.'C')W=2
18800 GO TO(606,607),DC
18900 608 FORMAT(' <<GO SLEEVELESS,BRING LIGHT WARP. '/)
19000 606 TYPE 608
19100 GO TO 610
19200 609 FORMAT(' <<WEAR LONG SLEEVES,HI NECK AND WARM WARP. '/)
19300 607 TYPE 609
19500 610 IF(L.EQ.'G')GO TO 21
19600 C JUMP IF GOOD LEGS
19700 IF(T.EQ.'B')DL=2
19800 IF(K.EQ.'B')DL=3
19900 IF(C.EQ.'B')DL=4
20000 21 SL=1
20100 IF(S.EQ.'N')SL=3
20200 C SHOULDER LINE BEST
20300 IF(S.NE.'W')GO TO 22
20400 SL=2
20500 C SLEEVELESS BEST, NO SHOULDER LINE
20600 IF(A.EQ.'B')SL=4
20700 C LONG SLEEVES,NO SHOULDER LINE
20800 41 FORMAT(/' << SKIRT SHOULD BE '$)
20900 22 TYPE 41
21000 GO TO(23,24,25,26),DL
21100
21200 27 FORMAT('+SHORT.'/)
21300 23 TYPE 27
21400 GO TO 28
21500
21600 29 FORMAT('+MEDIUM SHORT.'/)
21700 24 TYPE 29
21800 GO TO 28
21900
22000 30 FORMAT('+MEDIUM LONG.'/)
22100 25 TYPE 30
22200 GO TO 28
22300
22400 31 FORMAT('+LONG.'/)
22500 26 TYPE 31
22600
22700 28 GO TO(32,33,34,35),SL
22800
22900 36 FORMAT(' << ANY SHOULDER CUT.'/)
23000 32 TYPE 36
23100 GO TO 37
23200
23300 38 FORMAT(' << SLEEVELESS IS BEST.'/)
23400 33 TYPE 38
23500 GO TO 37
23600
23700 39 FORMAT(' << USE SHOULDER LINE.'/)
23800 34 TYPE 39
23900 GO TO 37
24000
24100 40 FORMAT(' << LONG SLEEVES BUT NO SHOULDER LINE.'/)
24200 35 TYPE 40
24300
24400 37 WL=0
24500 IF(W.EQ.'W')WL=1
24600 IF(W.EQ.'N')WL=2
24700 GO TO(42,44),WL
24800 GO TO 45
24900 141 FORMAT(' <<USE NO WAISTLINE.'/)
25000 42 TYPE141
25100 GO TO 45
25200 43 FORMAT(' <<USE WAISTLINE.'/)
25300 44 TYPE42
25400 GO TO 45
25500 45 IF(H.EQ.'G')GO TO 200
25600 IF(H.EQ.'W')HX=1
25700 IF(H.EQ.'N')HX=2
25800 GO TO (47,490),HX
25900 47 IF(B.EQ.'S')TYPE 48
26000 48 FORMAT(' <<USE EMPIRE WAIST.'/)
26100 56 FORMAT(' USE NO EMPIRE.'/)
26200 IF(B.EQ.'B')TYPE 56
26300 IF(B.EQ.'G')TYPE 493
26400 493 FORMAT(' << USE NO HIP-LINE.'/)
26500 GO TO 200
26600 491 FORMAT(' <<USE HIP-LINE'/)
26700 490 TYPE 491
26800 200 IF(A.EQ.'G')GO TO 201
26900 IF(S.NE.'N')TYPE 492
27000 492 FORMAT(' <<LONG SLEEVES.'/)
27100 IF(S.EQ.'N')TYPE 49
27200 49 FORMAT(' <<USE 3/4 SLEEVE.'/)
27300 GO TO 201
27400 203 TYPE 33
27500 201 IF(B.EQ.'G')GO TO 52
27600 IF(B.EQ.'B')TYPE 51
27700 51 FORMAT(' << NO EMPIRE WAIST.'/)
27800 IF(B.NE.'S')GO TO 202
27900 IF(S.EQ.'W')TYPE 48
28000 IF(S.EQ.'N')TYPE 52
28100 52 FORMAT(' <<USE SHOULDER LINE UNDER-GATHERING.'/)
28200 IF(N.EQ.'L') TYPE 53
28300 IF(N.EQ.'S') TYPE 54
28400 53 FORMAT(' <<USE HI NECKLINE.'/)
28500 54 FORMAT(' <<USE LOW NECKLINE.'/)
28600 202 CALL EXIT
28650 158 CALL EXIT
28700 END